currencies=(NotebookTemplateSlot["currencyList", "currencyList", Named, ]);

(NotebookTemplateSlot[, , Positional, ]) exchange rates for (NotebookTemplateExpression[DateString[{"DayName", ", ","Day", " ", "MonthName"}] , General, ])

referenceValue=(NotebookTemplateSlot[, , Positional, ]);
referenceList=DeleteCases[currencies,referenceValue];
rows={#,CurrencyConvert[Quantity[1,(NotebookTemplateSlot[, , Positional, ])],#]}&/@referenceList;
Panel[Grid[rows,BaseStyle->{24},Alignment->{{Right,"."},Automatic}]]

Generated by (NotebookTemplateSlot["name", (Sqrt[2]), Named, ])